home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Layers.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  2KB  |  111 lines
  1. Unit Layers;
  2.  
  3. Interface
  4. Uses Graphics, Input, Exec;
  5.  
  6. Type
  7.   pLayer_Info = ^tLayer_Info;
  8.   pLayer = ^tLayer;
  9.   pRastPort = ^tRastPort;
  10.   pClipRect = ^tClipRect;
  11.   pRegion = ^tRegion;
  12.   pBitMap = ^tBitMap;
  13.   pLibrary = ^tLibrary;
  14.  
  15.  
  16. Var
  17.   LayersBase: pLibrary;
  18.  
  19.  
  20.  
  21.  
  22. Procedure InitLayers (li: pLayer_Info);
  23. Function CreateUpfrontLayer
  24.          (li: pLayer_Info;
  25.           bm: pBitMap;
  26.           x0: LongInt;
  27.           y0: LongInt;
  28.           x1: LongInt;
  29.           y1: LongInt;
  30.           flags: LongInt;
  31.           bm2: pBitMap): pLayer;
  32.  
  33. Function CreateBehindLayer
  34.          (li: pLayer_Info;
  35.           bm: pBitMap;
  36.           x0: LongInt;
  37.           y0: LongInt;
  38.           x1: LongInt;
  39.           y1: LongInt;
  40.           flags: LongInt;
  41.           bm2: pBitMap): pLayer;
  42.  
  43. Function UpfrontLayer
  44.          (li: LongInt;
  45.           layer: pLayer): LongInt;
  46.  
  47. Function BehindLayer
  48.          (li: LongInt;
  49.           layer: pLayer): LongInt;
  50.  
  51. Function MoveLayer
  52.          (li: LongInt;
  53.           layer: pLayer;
  54.           dx: LongInt;
  55.           dy: LongInt): LongInt;
  56.  
  57. Function SizeLayer
  58.          (li: LongInt;
  59.           layer: pLayer;
  60.           dx: LongInt;
  61.           dy: LongInt): LongInt;
  62.  
  63. Procedure ScrollLayer
  64.          (li: LongInt;
  65.           layer: pLayer;
  66.           dx: LongInt;
  67.           dy: LongInt);
  68.  
  69. Function BeginUpdate (layer: pLayer): LongInt;
  70. Procedure EndUpdate
  71.          (layer: pLayer;
  72.           flag: Integer);
  73.  
  74. Function DeleteLayer
  75.          (li: LongInt;
  76.           layer: pLayer): LongInt;
  77.  
  78. Procedure LockLayer
  79.          (li: LongInt;
  80.           layer: pLayer);
  81.  
  82. Procedure UnlockLayer (layer: pLayer);
  83. Procedure LockLayers (li: pLayer_Info);
  84. Procedure UnlockLayers (li: pLayer_Info);
  85. Procedure LockLayerInfo (li: pLayer_Info);
  86. Procedure SwapBitsRastPortClipRect
  87.          (rp: pRastPort;
  88.           cr: pClipRect);
  89.  
  90. Function WhichLayer
  91.          (li: pLayer_Info;
  92.           x: Integer;
  93.           y: Integer): pLayer;
  94.  
  95. Procedure UnlockLayerInfo (li: pLayer_Info);
  96. Function NewLayerInfo: pLayer_Info;
  97. Procedure DisposeLayerInfo (li: pLayer_Info);
  98. Function FattenLayerInfo (li: pLayer_Info): LongInt;
  99. Procedure ThinLayerInfo (li: pLayer_Info);
  100. Function MoveLayerInFrontOf
  101.          (layer_to_move: pLayer;
  102.           layer_to_be_infront_of: pLayer): LongInt;
  103.  
  104. Function InstallClipRegion
  105.          (layer: pLayer;
  106.           region: pRegion): pRegion;
  107.  
  108.  
  109.  
  110. End.
  111.